home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / aakint14.arc / INITCOMM.PAS < prev    next >
Pascal/Delphi Source File  |  1986-08-24  |  926b  |  35 lines
  1. PROCEDURE Init_Comm ;
  2.  
  3. VAR
  4.    Index : INTEGER ;
  5.  
  6. BEGIN
  7.    A_Second         := 1000 ;
  8.    Term_Stat_Line   := 26 ;
  9.    Com_Disp         := 33 ;
  10.    Glb_Capture_Flg  := FALSE ;
  11.    Glb_Capture_ESC  := FALSE ;
  12.    Glb_Capture_Recv := TRUE ;
  13.    Glb_Capture_Xmit := FALSE ;
  14.    Glb_Ser_Chan     := 0 ;
  15.    Default_Com      := 0 ;
  16.    Wait_Increment   := 300 ;
  17.    FOR Index := 0 TO Glb_Max_Comms DO
  18.    BEGIN
  19.       Full_Duplex       [ Index ] := TRUE ;
  20.       Ascii_Mode        [ Index ] := TRUE ;
  21.       Continue_Transfer [ Index ] := TRUE ;
  22.       CS                [ Index ] := TRUE ;
  23.       CSF               [ Index ] := 0 ;
  24.       WITH Comm_Counters [ INDEX ] DO
  25.       BEGIN
  26.          Framming_Errors  := 0.0;
  27.          Parity_Errors    := 0.0;
  28.          Chip_Over_Runs   := 0.0;
  29.          Buffer_Over_Runs := 0.0;
  30.          Chars_Transmited := 0.0;
  31.          Chars_Recieved   := 0.0;
  32.       END;
  33.    END ;
  34. END ;
  35.